perm filename E.DIF[E,ALS] blob
sn#259059 filedate 1977-01-25 generic text, type T, neo UTF8
1) E[CSP,SYS] and 2) E.85[CSP,SYS] 1-25-77 10:25 pages 1,1
**** File 1) E[CSP,SYS], Page 1 line 27
1) C00129 00025 MARKS XMARK XXADD XXSUB XPADD XPSUB XLALL XXARRL XXPAGE XXLINE
1) C00138 00026 DELLIN DELPOS
1) C00140 00027 DELLP DELL2 DELDSP DELPR DELPR1 DELPR2
1) C00146 00028 DELPM DELPM1 DELPM2 DELPM3
1) C00150 00029 DELPAG DELPG1 ADJPG ADJPGL
1) C00154 00030 RCOMP RCOMP1 RCOMP2 RCOMPX
1) C00157 00031 DELETE DELET1 ADDPAG
1) C00161 00032 APPEND APPLUZ
1) C00164 00033 APPEN2 PMTXT PMPAG
1) C00166 00034 INSERT INSER0
1) C00168 00035 INSER1 INSER2 INSER3 INSER4 INSER5 INSER9 INSE10
1) C00172 00036 INSER8 DIRADD
1) C00174 00037 INSER6 INSER7 MARK NDIRCK
1) C00176 00038 CONTQ
1) C00178 00039 ATTACH ATTCH1 ARGCHK ARGCHN
1) C00180 00040 ATTDO ATTDO0 ATTDO2 ATTDO1 ATTOK ATTCHK
1) C00182 00041 ATTREP ATTEX ATTRE3 ATTRE4 ATTRE5 ATTRE6 ATTRE7 ATTRE8 ATTRE9
1) C00186 00042 ATTKIL ATTKL ATTSRC GPAGL GPAGL0 GPAGL1 GPAGL2 GPAGL3 ATTWRT
1) C00188 00043 ATTCOP ATTCP1 ATTCP
1) C00190 00044 ATTCP0 ATTCPL ATCMOR ATTCP2 ATTCP3 GPAGL
1) C00192 00045 EDIT EDIT1 LINED LINL1 EDDSP EDARG EDARGX ZLINE
1) C00195 00046 EDFULL EDTAB EDNUL EDCR AGAIN EDRP1 EDRPT
1) C00197 00047 EDGL EDGL1 EDGL2 EDGL2A EDGL2B EDGBSL IMLPTL
1) C00200 00048 EDGL3 EDGL4 REEDIT REEDT2 EDTMOR EDGDSP EDTAB2 PTOUT PTPNT EDLF ALTCHK ALTFIX INCHAR INCHA2
1) C00205 00049 EDCR2 EDACT EDACT2 EDITIT REPLIN PUTBAK UNINS FNEDIT EDLF2
1) C00211 00050 EDPUT EDPLR
1) C00213 00051 EDPS EDPL EDPLUZ
1) C00215 00052 EDSNK
1) C00216 00053 CRDSP REGCR REGCR1 REGCR2
1) C00218 00054 CONTCR CNTCR2 METACR REPRST REPRS2 METAC2
1) C00221 00055 LECR DUBLCR DUBCR1 DUBCR2 DUBCR3 DUBCR4
1) C00224 00056 INSONA INSONE INSNUL INSNLP
1) C00226 00057 LININS LININ LININ0 LININ1
1) C00228 00058 PPSET ABCRLF ABCRL0 CMDCRL IPPSET DPPSET
1) C00233 00059 OCT3ST NUMSTD NUMSTR OCTSTR OCTASC NUMSIX
1) C00235 00060 SETWRT SETWR2 SETWRX BTAB SETWR4 CLEARX IDIOT
1) C00238 00061 FRD FRD0 FRD1 NOEXT NOPRG NOPPN NOSWIT SWITL FRDMSG FLHACK FRD0A SETDEV FRD2 FRD2A NOPP1 SWLOP FRDX FRDX2 SIXOUT
1) C00248 00062 GETNAM GETNML GETP GETPL DTYI1 DTYI DTYI2
1) C00251 00063 DOSWIT DOSWI2 NTYI NTYIL NTYIM EDFIL EDFIL2 SRCFIL DSTFIL NTYINF NTYICM
1) C00254 00064 RSCAN RSCAN0 RSCAN1 RSCAN2 RSCAN3 RSCAN4 RSCN4B RSCN4C RSCN4A RSCN0A
1) C00259 00065 RSCAN5 RSCAN6 RSCAN7 RSCAN8 SYSCCK CRECHK
1) C00261 00066 RSTYI RSTYI0 RSTYI1 UCASE TYI1 TYI2 TYI3 TYI4 TYI5 TYI6 TYI7 TYICHK CTYI1 CTYI2 POPUP POPCJ CSTYI1
1) C00265 00067 TYI TYIT TYIU
1) C00266 00068 TMPRED TMPRD1 TMPRD2 TMPRDX RPGRD1 BKPRED
1) C00272 00069 TMPWRT BKPWRT TMPCOR
1) C00276 00070 FILERR FILTYP FILSTR PPNTYP FILETB
1) C00278 00071 SIXTYO SIXTYL SIXTY2 SIXTYN SIXTNL SIXTNN PNTYO PNTYOL
1) E[CSP,SYS] and 2) E.85[CSP,SYS] 1-25-77 10:25 pages 1,1
1) C00279 00072 UUOH UUODSP UFCE UTYPCH UTYPC2 UTYPDE UTYPOC
1) C00280 00073 UTYPR UTYPR1 USORRY UFATAL FATFIX TELLX TELLZ FATFI2 PANIC
1) C00284 00074 OPENI OPNOI IOPEN SETI SETRLD OPNDEV RELDEV OPNLUZ
1) C00288 00075 RLD RLD1 RLD2 RLDX RLDLUZ FIXEOF ENTLUZ ENTL2 RLDCHK
1) C00292 00076 EXTCHK EXTCH1 EXTCH2 EXTCH3 EXTCH4 EXTTAB
1) C00294 00077 OPENW OPENO SETO FPAUSE PAUSE PAUS2 BYE
1) C00296 00078 CLOSO CLOSO2 WRBUF WRBF1 WRBF2 WRBF3 WRBF4 ENTR OBUF IBUF IBFE
1) C00298 00079 INTLUZ INTDSP PDLOV PDLOV1 PDLOV2 PDLOV3 ISAV TSINT TSNINT
1) C00302 00080 FSINI FSINI1 MORCOR INTERR INTX INTPOV
1) C00305 00081 FSGET FSLUP0 FSLUP FSGRAB FSXIT
1) C00308 00082 FSNEWT FSNEWP FSNEW
1) C00309 00083 FSTSML FSNEXT FSHRET FSLLUZ
1) C00312 00084 FSLSCN FSLSCL FSLFR FSLSHF FSLSLP FSLMOV FSLDON
1) C00315 00085 FSHSCN, FSHSCL, FSHFR, FSHSHF, FSHSLP, FSHSR, FSHMOV
1) C00317 00086 FSBLT, POPTJ, FSBLT1
1) C00318 00087 FSBLT2, FSBLT3, FSHBLT, FSHBL2
1) C00319 00088 PNTREL, SHFTB, STDSH1, STDSHF, RELOC, RELOCL
1) C00321 00089 FSGIVE, FSGIV1, FSGIV2
1) C00322 00090 CORCHK CRUNCH CMPACT
1) C00324 00091 ENDSET ENDFIX
1) C00328 00092 FSCHK, FCLUP1, FCLUP2, FCFR, FCDON
1) C00330 00093 FUCHK, MOVIT, MOVTX
1) C00332 00094 PURINI, PLCHK, PL2CHK, PLCHKL, PLSCN0, PLSCN, PLSCN1, PLSCN2, PLSCN3
1) C00334 00095 PURCHK, PURCH1, PURCH2, PURCH3, PURC3A
1) C00337 00096 PURCH4, PURCH5, PURCH6, PURCH7, PURCLC, TYPHW, PURCK, PLCHK1, PLCHK2, PURFLG
1) C00339 00097 SAVIT
1) C00341 00098 CHECK, CHECK1, CHECK2
1) C00342 00099 CHKDIR, CHKDPL
1) C00344 00100 CHKDR1 CHKD1A CHKDR2 CDDSP CHKDR3 CHKDR4 CHKD4A
1) C00346 00101 CHKLST, CHKFS, CHKFSL, CHKFS2, CHKPNT, CHKPN2
1) C00347 00102 CHKPAG, CHKPGP
1) C00348 00103 CHKPG1, CHKPG2, CPDSP, CHKPGT, CHKPTL
1) C00350 00104 CHKPG3, CHKPG4, CHKPG5, CHKPG6
1) C00351 00105 CHKATT, CHKNAT
1) C00352 00106 CTAB 0-37
1) C00356 00107 CTAB 40-77
1) C00358 00108 CTAB 100-137
1) C00360 00109 CTAB 140-177
1) C00362 00110 GETDIR
1) C00364 00111 DIRCL2, DIRCL, DIRCL1, GETDR1
1) C00367 00112 DIRLIN DIRLUP DIRDON GDIRX DIRLF DIRLF1 DIRLF2 FINDIR XDRDSP XDIRLN XDIRIL XDCRLF XDIRFF DIRLN2
1) C00379 00113 LOSDIR BADDIR BADDI2 NODIR DIRNUM GDDSP LSKP1 DIRSHF DIREND UGHDIR FLSDIR IGNDIR DELDIR
1) C00384 00114 COPFIL, COPFL1, COPDO, COPYX, COPDAT, COPLUP
1) C00387 00115 COPCOR, COPCHK, YESCHK, COPCMD
1) C00389 00116 FORMAT FMTOK FMTDSP FORMT2 FORMT3 FORMT4 FORMT5 FORMT6
1) C00392 00117 NEWDIR NEWDLP SKPDSP NEWDFF OPUT OSET TMPDIR
1) C00394 00118 MAKDIR MAKDR0 MAKDR1 MAKDOL MDOL1
1) C00397 00119 MDIL1 MDIL1A MDIL2 MDIL2A MDCSRC MDCSR1 MD1DSP
1) E[CSP,SYS] and 2) E.85[CSP,SYS] 1-25-77 10:25 pages 1,1
1) C00400 00120 MDIL1B MAKDLF MAKDFF MDFF1 MDFF2 MDFF3 MDFF4 MDCEOL MD2DSP RLDCHK RLDCK1 RLDCK2 RLDCK3 RLDCKX
1) C00406 00121 MD1CR MD2CR MD3CR MD3CR1 MDIL3 MDCRCK MDFIX MDLFCK
1) C00410 00122 CREATE CREAT2 CTEXT
1) C00412 00123 RDSPA1 RDPAGE RDPGOK RDSPAG RDPAG0 RDSPA2 RDSPA4 RDSPA5
1) C00416 00124 RDPAG2 RDPAG1 RDLINE RDLLP RDLTAB TELLD1 TELLDZ PSEUDO
1) C00419 00125 RDLCR RDLLF RDLONG RDLCR2 RDLCR1 RDLCR0
1) C00421 00126 RDLFF RDLDON LINSET RPDSP RDLNUL LINSE2
1) C00423 00127 RDPGLZ, SOSTST, SOSCHK, SOSCK2, PGMK, PGMK2
1) C00425 00128 DIRCHK DIRNEW DIRNW2 DIRNW1 TXTSHF
1) C00427 00129 FNDLIN, FNDPAG, FNDLN1, FNDLN2, FNDLN3
1) C00429 00130 REMPTR FIXPTR FNDPT1 FNDPT2 LPTRTB DPTRTB ARRL TOPWIN LINES FIRPAG CURPAG PAGES
1) C00432 00131 DIRGET, DIRGL, DGEND, DRGSET
1) C00434 00132 NUM5, NUM5A, DIRHED, DIRTXT, DIREMK, DGDSP
1) C00436 00133 OUTDIR, OUTDOK, OUTDLP, ODDSP, ODDON, ODEXP
1) C00438 00134 INSDIR INSD3 INSD4 INSD5 IDDSP0 IDDSP IDTAB
1) C00441 00135 SCOMS NSCOMS SCOMS2 INSD1
1) C00444 00136 IDNUL IDDON IDTAB0
1) C00446 00137 DIRSET, DIRST1, DIRUP, DIRUP1, DIRUP2, DIRUP3
1) C00447 00138 DIRFIX, DIRFX1, DIRFX2, DIRFX3, DIRFX4, DIRFXN
1) C00449 00139 SCRTOP PPSIZ NLINES LINMAX DPY IMLDPY IMLACL ARRPOS AR2POS ARPOS2 ARRBUF FIRWRD LEDTST DISPI WIPI DBLTI PCOMP P2COMP DDWAIT DISPAI
1) C00453 00140 DISPXA DISP1A DISP2I LEPREP LETST SPCOUT DPYHED DDACT DPYBUF DPYTAB DPYLOC MASK BRKTAB BOTAPS BOTID BOTAR3 DMLHDR LINECI SHFHDR
1) C00456 00141 HEADERS & TRAILERS -- TOPSTR HEDPAG HEDNAM ROFLG WFLAG TOPDSH HEDLIN BOTSTR DOTS
1) C00459 00142 DPYINI DPYCHK TTYTST MTLINE LOADMT DPYCHG
1) C00464 00143 DPYI2 NODPY WIPE IWIPE DMWIPE WIPER
1) C00468 00144 SETSCR NMVAR1 NMVARR MOVARR SETARR DSTRL TRLARR GOLINE TRAILS TRAIL0
1) C00479 00145 SETWIN WINCHK WINCH2 GLDOWN GLUP POPWIN DWNWIN REWIN CENWIN SETWN2
1) C00484 00146 DISP DISP0 DISP1 DISP2 DISP6 DISP2M
1) C00488 00147 DISP3 DISP3A DISP4 DISP4A DISP5 DUMMY EXCLR EXSET EXTST
1) C00491 00148 DISPAT DISPAX
1) C00494 00149 DDISPX DDSPX2 DDDONE WIPIT WIPL WIPL2 DMDONE MDISPX MDDISP MDSPX2
1) C00497 00150 DDCOP DDLUZ LINREL LINRLL IDISP IDISP2
1) C00500 00151 IIIARR IIIAR2 IIIAR3 DMARRL IDMTAB CNTNUL CNTNU2
1) C00504 00152 LESET LEADJ LECLR LEADDM LEADJ2
1) C00506 00153 DBLT DBLT1 DBLT2 DBLT3 DBLT4 DBLT5 DBLT6 DBLT7 IDISPX DISPX PPBAJ1 POPBAJ POPAJ
1) C00509 00154 PCOMPD PCOMPI PCOMPM PCOMPS P2CMPD P2CMPI P2CMPM PCMPID
1) C00511 00155 DDISP DDISP2 DMARR
1) C00513 00156 DOARR DOAR2 OFFARR ONARR
1) C00514 00157 DDISPS DDSPS2 DDSPS3 DDSPSX DDSPS4
1) C00518 00158 DSPSAT DSPSAX SHIFT DMSPS2 DMSPS3 DMSPS4 DMSPSX DMPSAT DMPSAX DMBLTS DMBLT3 DMBLA
1) C00538 00159 DBLTS DBLTS2 DBLTSN DBLTS3 DBLTS1 DBLTSA DBLTA DBLTA2 DBLTS0 DBLTSB
1) C00541 00160 TDISP TDISP0 TDISP1 TDISP2 TDISP3 TDISPE
1) C00543 00161 TDISP4 TDISP5 TYPE TYPEL TDISPM
1) C00545 00162 WRPAGE WRPAG1 WRPAG2 WRBOOK
1) C00549 00163 WRPX0 WRPX WRPX1 WRPX1A WRPX1B WRPX2 WRPXBP
1) C00551 00164 WRPX3 WRPX4
1) C00554 00165 WRPOK WRTIT WRT0
1) C00556 00166 WRP1 WRLINE WRLUP WRLP2 WRRDO WRRDO2 WRRDO3
1) C00558 00167 WRDSP WRTAB WRCHK WRDONE WRDON2
1) E[CSP,SYS] and 2) E.85[CSP,SYS] 1-25-77 10:25 pages 1,1
1) C00560 00168 WRPM BTAB2
1) C00562 00169 FLSPAG FLSPGL FLSPG2 CLRWRT CLRWR2 DSHED
1) C00563 00170 TV RSYS RUN RUN1
1) C00566 00171 RUNILL, RUNNON, RUNFNF, RUNDEV, RUNFIL
1) C00567 00172 SEARCH ROUTINES
1) C00569 00173 SREAD SREAD0 SREAD1 SREAD2 SREAD3 SREAD4 SRSTOR SRSTR2 QREAD QREADX QREADY QRACT QRACT2 QABORT
1) C00584 00174 SRACT SREAD5 SRALT SRALT2 SRALUZ SREDT ASTER BSLAS BSLXCT BSLXC2 SREAD5 SREAD6
1) C00594 00175 FINDIT FOUND FNDMOV FNDERR SUBSTP SUBERR FND2 FND2A SETJMP SUBSP3 SUBSP2 FNDER2 FNDER3 FNDER5
1) C00599 00176 FIND
1) C00602 00177 DIRSRC DIRSR2 DFERR SRCDF SDFCR
1) C00605 00178 EXACT SSET SSET2
1) C00606 00179 SCOMP SFLUSH NOSRCH SFLSH1 SFLSL
1) C00608 00180 SBARF, SBARF1, SARRGH, SFSGT, SFSGET, SFSPUT, SFSPTL
1) C00610 00181 SPARSE
1) C00611 00182 SPARS1, SPARS2, SPDSP, SSCAN, SSCANA, SSCANX
1) C00613 00183 SSCAN1, SSCN1A, SSCN1B, SSCQT, SSCBIN, SSCINF, SSCNOT, SSCUOP, SSCVB
1) C00615 00184 SSCLP, SSCDSP
1) C00616 00185 SGRAPH, SGRPH1, SGRPH2, SGRPHX, SGDO1, SGDO1X, SGDOX2, SGDSP, SGDO1B
1) C00618 00186 SGNOT
1) C00619 00187 SBACK, SBACK1, SBACK2, SBACK3, SBACK4
1) C00621 00188 SBBRCH, SBBR2
1) C00622 00189 SBCALC, SBCAL0, SBCAL1, SBCAL2, SBCAL3
1) C00623 00190 SBCAL4, SBCNON, SBCX, SBCOPL, SBCOP2, SBCEND, SBCEN2, SBCFIX, SBCFXL, SBCFXE, POPJ2
1) C00625 00191 SBCOK, SBCEN1, SBCLUZ, SBCLZ1, SBCNXT, SBCBP, SBCBPL
1) C00627 00192 SBCCB, SBCCB1, SBCCB2, SBCCB8, SBCCB3, SBCCB4, SBCCB5
1) C00629 00193 SBCCB6, SBCCB7, BITCNT, BITCN1
1) C00630 00194 NEWBIT, NEWBT0, NEWBT1, NEWBT2, NEWBT3, NEWBT4, NEWBT5
1) C00632 00195 NEWBTC, NEWBC1, NEWBC2, NEWBC3, NEWBNC, NEWBN1, NEWBN2, NEWBN3, NEWBCZ, NEWBNZ
1) C00634 00196 SCCOM, SCCNOT
1) C00635 00197 SCCBIT
1) C00636 00198 MAKBIT, MAKBT0, MAKBT1, MAKBTN, MAKBN2, MAKBTB, MAKBB3
1) C00638 00199 MAKBNB, MAKBBT, MAKBB2, MBDSP, MBIND, MBIND2
1) C00640 00200 SCGEN
1) C00641 00201 SCGEN1, SCGEN2, SCGEN3, SCGEN4, SCGEN5, SCGEN6
1) C00643 00202 SCGTST, SCGT2, SCGT3, SCGDSP, SCGCN, SCGCN2, SCGBTN, SCGBT
1) C00645 00203 SCGE, SCGE2, SCGEL, SCGBAK, SCGBK1, SCGBK2, SCGBK3, SCGFA, SCGNC, SCGNFA
1) C00647 00204 SCGHB, SCGHB0, SCGHB5, SCGHB1, SCGHB2, SCGHB3, SCGHB4, SCGHBX, SCGHX2
1) C00649 00205 SCGCB, SCGCB0, SCGCB1, SCGCB2, SCGCB3, SCGCB4, SCGCB5, SCGHCB
1) C00651 00206 SBTMAK, SBTMK1, SBTMK2, SBTMK3, SBTMK4, SCGENB, SCGHB, SSVINS, SCXCT, SBKNW, SBKNWA, SBKDSP
1) C00653 00207 SRCPAG SRCPG1 SPFIN SPFL SPFL2 SPFX NOSRC2 SRCLBL SRCPG3
1) C00656 00208 GBYTP, GBYTPL, GBTPX, GBPDSP, GBPTAB
1) C00657 00209 SRCPGF, SPFTAB, SPFCR, SPFLUZ
1) C00658 00210 SRCPGB, SPFTAB, SBKNL, SBKNUL
1) C00660 00211 SRCSET, SRCST1, SRCSTL, SRCST2
1) C00661 00212 SCALL, SRCHX, SRCHLX
1) C00663 00213 SCNBAK, SCNBKL
1) C00665 00214 SCONTF SRCFNP SRCFNB SFNB2 SFRETR SRCDPY SRCDP2 SRCFPP SRCDP3 NOSRCP SRCHED, SRCDD
1) C00670 00215 SRCFF, SFFNUL, SGTACS, SRTACS
1) E[CSP,SYS] and 2) E.85[CSP,SYS] 1-25-77 10:25 pages 1,1
1) C00671 00216 SRCFB, SFBNUL, SBKNB, SBKNB2, SIOERR, SBKNP
1) C00672 00217 JCTAB
1) C00681 00218 J1DSP J2DSP J3DSP J4DSP J5DSP J6DSP J7DSP
1) C00694 00219 PARGET NEXTLI ADJARG JNEW JMORE JUFIX JBLANK JMSTRT JSTART
1) C00704 00220 JINIT JPREAD JMREAD SWTABL SWNOTE SWNOTT JUDATA JUTYPO
1) C00712 00221 TJ1DSP TJROOM TABLE TJFILL TJUST TJDATA
1) C00723 00222 SJFILL SJUSTA JFILL JUST JU7
1) C00734 00223 IND INDENT INREAD CENTER ALIGN LFARR RTARR TIN SIN
1) C00746 00224 JGINIT JGB JGIND JGMAR JGET
1) C00752 00225 TJREAD TJADJ TJGET TJG1 TJTYPO
1) C00763 00226 BREAK JOIN JOIN7
1) C00776 00227 TJU1
1) C00783 00228 MACRO FREE STORAGE - MFSCLR,GETMFS,FREMFS
1) C00785 00229 MACTYI
1) C00787 00230 ZDATA ZSIX ZBLT ZEDFIL ZLIST EXIST EXISTF ZSAVE ZFLDIR ZUNPAK
1) C00802 00231 LAMBDA EPSIL NWFILE HOME QUERY HOMEG LAMBDG EPSIL5 LAMEPS EPSIL2 EPSIL3 EPSIL4 EPSIL1
1) C00815 00232 ********* BEG OF ESSAY DEFS *********
1) C00834 00233 SUBSTR SUBST1 SUBOVE SUBST5 QFAST1 QFAST5 SUBSAY QFAST6 QFAST9
1) C00841 00234 SPOOLC XSPOOL MAIOUT XWRDSP MAISPL XCLOSO XWRPM XWRDON XWRBF3 XWRTAB XWRLUP XWRLIN SPLINI
1) C00852 00235 BEGIN SPSUB
1) C00859 00236 FBISPC FBITAB ADRS FBINAM SAVCH2 SAVCHR TELBUF,CHKUP,CHECKU,CHTEXT,ASCASC,CHOUT3,CHOUT6
1) C00869 00237 FILEID TELLME FBI
1) C00888 00238 MAP
1) C00896 00239 PAREN
1) C00899 00240 PARSAV PARL PARR PAR PARFND PARB PAREXT PARRCD PARNUL
1) C00921 00241 BACKGO BEEPCK BEEPST BEEPS1 BEEPME BEEPUU
1) C00925 00242 MSG CHKMSG MSG0B MSG0A MSG0 MSG1 MSG2 MSG5 MSG6 MSG7 MSGLUZ MSGBK MSGBK0 CHKMS0
1) C00933 00243 MACDEF MACCAL MACSTP MACESC MACLIN MACTYP MACINT MACLTT MACKLD
1) C00948 00244 BURP BURPEX UPDATE PROTEC AUTOBU
1) C00954 00245 MAIL SEND REMIND
1) C00956 00246 ALIAS SETHED ALIAS2 ALIAS3 ALIAS4 ALIAS5 SETHD2
1) C00959 00247 SAVE SPLSTR SAVFIL
1) C00963 00248 LBLSRC LBLSR2 LBLERR LBLOOP
1) C00966 00249 HEIGHT HEIGH2 HEIGH3 HEIGH4
1) C00968 00250 PDL PATCH PAT ZVARS LEGTAB BUF TCBUF RBUF FNDTBF FNDBUF DIR SYSCMD TYIPNT
1) C00970 ENDMK
1) C⊗;
**** File 2) E.85[CSP,SYS], Page 1 line 27
2) C00129 00025 MARKS XMARK XMPAGE XXADD XXSUB XPADD XPSUB XLALL XXARRL XXPAGE XXLINE
2) C00143 00026 DELLIN DELPOS
2) C00145 00027 DELLP DELL2 DELDSP DELPR DELPR1 DELPR2
2) C00151 00028 DELPM DELPM1 DELPM2 DELPM3
2) C00154 00029 DELPAG DELPG1 ADJPG ADJPGL
2) C00158 00030 RCOMP RCOMP1 RCOMP2 RCOMPX
2) C00161 00031 DELETE DELET1 ADDPAG
2) C00164 00032 APPEND APPLUZ
2) C00167 00033 APPEN2 PMTXT PMPAG
2) C00169 00034 INSERT INSER0
1) E[CSP,SYS] and 2) E.85[CSP,SYS] 1-25-77 10:25 pages 1,1
2) C00171 00035 INSER1 INSER2 INSER3 INSER4 INSER5 INSER9 INSE10
2) C00175 00036 INSER8 DIRADD
2) C00177 00037 INSER6 INSER7 MARK NDIRCK
2) C00179 00038 CONTQ
2) C00181 00039 ATTACH ATTCH1 ARGCHK ARGCHN
2) C00183 00040 ATTDO ATTDO0 ATTDO2 ATTDO1 ATTOK ATTCHK
2) C00185 00041 ATTREP ATTEX ATTRE3 ATTRE4 ATTRE5 ATTRE6 ATTRE7 ATTRE8 ATTRE9
2) C00189 00042 ATTKIL ATTKL ATTSRC GPAGL GPAGL0 GPAGL1 GPAGL2 GPAGL3 ATTWRT
2) C00191 00043 ATTCOP ATTCP1 ATTCP
2) C00193 00044 ATTCP0 ATTCPL ATCMOR ATTCP2 ATTCP3 GPAGL
2) C00195 00045 EDIT EDIT1 LINED LINL1 EDDSP EDARG EDARGX ZLINE
2) C00198 00046 EDFULL EDTAB EDNUL EDCR AGAIN EDRP1 EDRPT
2) C00200 00047 EDGL EDGL1 EDGL2 EDGL2A EDGL2B EDGBSL IMLPTL
2) C00203 00048 EDGL3 EDGL4 REEDIT REEDT2 EDTMOR EDGDSP EDTAB2 PTOUT PTPNT EDLF ALTCHK ALTFIX INCHAR INCHA2
2) C00208 00049 EDCR2 EDACT EDACT2 EDITIT REPLIN PUTBAK UNINS FNEDIT EDLF2
2) C00214 00050 EDPUT EDPLR
2) C00216 00051 EDPS EDPL EDPLUZ
2) C00218 00052 EDSNK
2) C00219 00053 CRDSP REGCR REGCR1 REGCR2
2) C00221 00054 CONTCR CNTCR2 METACR REPRST REPRS2 METAC2
2) C00224 00055 LECR DUBLCR DUBCR1 DUBCR2 DUBCR3 DUBCR4
2) C00227 00056 INSONA INSONE INSNUL INSNLP
2) C00229 00057 LININS LININ LININ0 LININ1
2) C00231 00058 PPSET ABCRLF ABCRL0 CMDCRL IPPSET DPPSET
2) C00236 00059 OCT3ST NUMSTD NUMSTR OCTSTR OCTASC NUMSIX
2) C00238 00060 SETWRT SETWR2 SETWRX BTAB SETWR4 CLEARX IDIOT
2) C00241 00061 FRD FRD0 FRD1 NOEXT NOPRG NOPPN NOSWIT SWITL FRDMSG FLHACK FRD0A SETDEV FRD2 FRD2A NOPP1 SWLOP FRDX FRDX2 SIXOUT
2) C00251 00062 GETNAM GETNML GETP GETPL DTYI1 DTYI DTYI2
2) C00254 00063 DOSWIT DOSWI2 NTYI NTYIL NTYIM EDFIL EDFIL2 SRCFIL DSTFIL NTYINF NTYICM
2) C00257 00064 RSCAN RSCAN0 RSCAN1 RSCAN2 RSCAN3 RSCAN4 RSCN4B RSCN4C RSCN4A RSCN0A
2) C00262 00065 RSCAN5 RSCAN6 RSCAN7 RSCAN8 SYSCCK CRECHK
2) C00264 00066 RSTYI RSTYI0 RSTYI1 UCASE TYI1 TYI2 TYI3 TYI4 TYI5 TYI6 TYI7 TYICHK CTYI1 CTYI2 POPUP POPCJ CSTYI1
2) C00268 00067 TYI TYIT TYIU
2) C00269 00068 TMPRED TMPRD1 TMPRD2 TMPRDX RPGRD1 BKPRED
2) C00275 00069 TMPWRT BKPWRT TMPCOR
2) C00279 00070 FILERR FILTYP FILSTR PPNTYP FILETB
2) C00281 00071 SIXTYO SIXTYL SIXTY2 SIXTYN SIXTNL SIXTNN PNTYO PNTYOL
2) C00282 00072 UUOH UUODSP UFCE UTYPCH UTYPC2 UTYPDE UTYPOC
2) C00283 00073 UTYPR UTYPR1 USORRY UFATAL FATFIX TELLX TELLZ FATFI2 PANIC
2) C00287 00074 OPENI OPNOI IOPEN SETI SETRLD OPNDEV RELDEV OPNLUZ
2) C00291 00075 RLD RLD1 RLD2 RLDX RLDLUZ FIXEOF ENTLUZ ENTL2 RLDCHK
2) C00295 00076 EXTCHK EXTCH1 EXTCH2 EXTCH3 EXTCH4 EXTTAB
2) C00297 00077 OPENW OPENO SETO FPAUSE PAUSE PAUS2 BYE
2) C00299 00078 CLOSO CLOSO2 WRBUF WRBF1 WRBF2 WRBF3 WRBF4 ENTR OBUF IBUF IBFE
2) C00301 00079 INTLUZ INTDSP PDLOV PDLOV1 PDLOV2 PDLOV3 ISAV TSINT TSNINT
2) C00305 00080 FSINI FSINI1 MORCOR INTERR INTX INTPOV
2) C00308 00081 FSGET FSLUP0 FSLUP FSGRAB FSXIT
2) C00311 00082 FSNEWT FSNEWP FSNEW
1) E[CSP,SYS] and 2) E.85[CSP,SYS] 1-25-77 10:25 pages 1,1
2) C00312 00083 FSTSML FSNEXT FSHRET FSLLUZ
2) C00315 00084 FSLSCN FSLSCL FSLFR FSLSHF FSLSLP FSLMOV FSLDON
2) C00318 00085 FSHSCN, FSHSCL, FSHFR, FSHSHF, FSHSLP, FSHSR, FSHMOV
2) C00320 00086 FSBLT, POPTJ, FSBLT1
2) C00321 00087 FSBLT2, FSBLT3, FSHBLT, FSHBL2
2) C00322 00088 PNTREL, SHFTB, STDSH1, STDSHF, RELOC, RELOCL
2) C00324 00089 FSGIVE, FSGIV1, FSGIV2
2) C00325 00090 CORCHK CRUNCH CMPACT
2) C00327 00091 ENDSET ENDFIX
2) C00331 00092 FSCHK, FCLUP1, FCLUP2, FCFR, FCDON
2) C00333 00093 FUCHK, MOVIT, MOVTX
2) C00335 00094 PURINI, PLCHK, PL2CHK, PLCHKL, PLSCN0, PLSCN, PLSCN1, PLSCN2, PLSCN3
2) C00337 00095 PURCHK, PURCH1, PURCH2, PURCH3, PURC3A
2) C00340 00096 PURCH4, PURCH5, PURCH6, PURCH7, PURCLC, TYPHW, PURCK, PLCHK1, PLCHK2, PURFLG
2) C00342 00097 SAVIT
2) C00344 00098 CHECK, CHECK1, CHECK2
2) C00345 00099 CHKDIR, CHKDPL
2) C00347 00100 CHKDR1 CHKD1A CHKDR2 CDDSP CHKDR3 CHKDR4 CHKD4A
2) C00349 00101 CHKLST, CHKFS, CHKFSL, CHKFS2, CHKPNT, CHKPN2
2) C00350 00102 CHKPAG, CHKPGP
2) C00351 00103 CHKPG1, CHKPG2, CPDSP, CHKPGT, CHKPTL
2) C00353 00104 CHKPG3, CHKPG4, CHKPG5, CHKPG6
2) C00354 00105 CHKATT, CHKNAT
2) C00355 00106 CTAB 0-37
2) C00359 00107 CTAB 40-77
2) C00361 00108 CTAB 100-137
2) C00363 00109 CTAB 140-177
2) C00365 00110 GETDIR
2) C00367 00111 DIRCL2, DIRCL, DIRCL1, GETDR1
2) C00370 00112 DIRLIN DIRLUP DIRDON GDIRX DIRLF DIRLF1 DIRLF2 FINDIR XDRDSP XDIRLN XDIRIL XDCRLF XDIRFF DIRLN2
2) C00382 00113 LOSDIR BADDIR BADDI2 NODIR DIRNUM GDDSP LSKP1 DIRSHF DIREND UGHDIR FLSDIR IGNDIR DELDIR
2) C00387 00114 COPFIL, COPFL1, COPDO, COPYX, COPDAT, COPLUP
2) C00390 00115 COPCOR, COPCHK, YESCHK, COPCMD
2) C00392 00116 FORMAT FMTOK FMTDSP FORMT2 FORMT3 FORMT4 FORMT5 FORMT6
2) C00395 00117 NEWDIR NEWDLP SKPDSP NEWDFF OPUT OSET TMPDIR
2) C00397 00118 MAKDIR MAKDR0 MAKDR1 MAKDOL MDOL1
2) C00400 00119 MDIL1 MDIL1A MDIL2 MDIL2A MDCSRC MDCSR1 MD1DSP
2) C00403 00120 MDIL1B MAKDLF MAKDFF MDFF1 MDFF2 MDFF3 MDFF4 MDCEOL MD2DSP RLDCHK RLDCK1 RLDCK2 RLDCK3 RLDCKX
2) C00409 00121 MD1CR MD2CR MD3CR MD3CR1 MDIL3 MDCRCK MDFIX MDLFCK
2) C00413 00122 CREATE CREAT2 CTEXT
2) C00415 00123 RDSPA1 RDPAGE RDPGOK RDSPAG RDPAG0 RDSPA2 RDSPA4 RDSPA5
2) C00419 00124 RDPAG2 RDPAG1 RDLINE RDLLP RDLTAB TELLD1 TELLDZ PSEUDO
2) C00422 00125 RDLCR RDLLF RDLONG RDLCR2 RDLCR1 RDLCR0
2) C00424 00126 RDLFF RDLDON LINSET RPDSP RDLNUL LINSE2
2) C00426 00127 RDPGLZ, SOSTST, SOSCHK, SOSCK2, PGMK, PGMK2
2) C00428 00128 DIRCHK DIRNEW DIRNW2 DIRNW1 TXTSHF
2) C00430 00129 FNDLIN, FNDPAG, FNDLN1, FNDLN2, FNDLN3
2) C00432 00130 REMPTR FIXPTR FNDPT1 FNDPT2 LPTRTB DPTRTB ARRL TOPWIN LINES FIRPAG CURPAG PAGES
1) E[CSP,SYS] and 2) E.85[CSP,SYS] 1-25-77 10:25 pages 1,1
2) C00435 00131 DIRGET, DIRGL, DGEND, DRGSET
2) C00437 00132 NUM5, NUM5A, DIRHED, DIRTXT, DIREMK, DGDSP
2) C00439 00133 OUTDIR, OUTDOK, OUTDLP, ODDSP, ODDON, ODEXP
2) C00441 00134 INSDIR INSD3 INSD4 INSD5 IDDSP0 IDDSP IDTAB
2) C00444 00135 SCOMS NSCOMS SCOMS2 INSD1
2) C00447 00136 IDNUL IDDON IDTAB0
2) C00449 00137 DIRSET, DIRST1, DIRUP, DIRUP1, DIRUP2, DIRUP3
2) C00450 00138 DIRFIX, DIRFX1, DIRFX2, DIRFX3, DIRFX4, DIRFXN
2) C00452 00139 SCRTOP PPSIZ NLINES LINMAX DPY IMLDPY IMLACL ARRPOS AR2POS ARPOS2 ARRBUF FIRWRD LEDTST DISPI WIPI DBLTI PCOMP P2COMP DDWAIT DISPAI
2) C00456 00140 DISPXA DISP1A DISP2I LEPREP LETST SPCOUT DPYHED DDACT DPYBUF DPYTAB DPYLOC MASK BRKTAB BOTAPS BOTID BOTAR3 DMLHDR LINECI SHFHDR
2) C00459 00141 HEADERS & TRAILERS -- TOPSTR HEDPAG HEDNAM ROFLG WFLAG TOPDSH HEDLIN BOTSTR DOTS
2) C00462 00142 DPYINI DPYCHK TTYTST MTLINE LOADMT DPYCHG
2) C00467 00143 DPYI2 NODPY WIPE IWIPE DMWIPE WIPER
2) C00471 00144 SETSCR NMVAR1 NMVARR MOVARR SETARR DSTRL TRLARR GOLINE TRAILS TRAIL0
2) C00482 00145 SETWIN WINCHK WINCH2 GLDOWN GLUP POPWIN DWNWIN REWIN CENWIN SETWN2
2) C00487 00146 DISP DISP0 DISP1 DISP2 DISP6 DISP2M
2) C00491 00147 DISP3 DISP3A DISP4 DISP4A DISP5 DUMMY EXCLR EXSET EXTST
2) C00494 00148 DISPAT DISPAX
2) C00497 00149 DDISPX DDSPX2 DDDONE WIPIT WIPL WIPL2 DMDONE MDISPX MDDISP MDSPX2
2) C00500 00150 DDCOP DDLUZ LINREL LINRLL IDISP IDISP2
2) C00503 00151 IIIARR IIIAR2 IIIAR3 DMARRL IDMTAB CNTNUL CNTNU2
2) C00507 00152 LESET LEADJ LECLR LEADDM LEADJ2
2) C00509 00153 DBLT DBLT1 DBLT2 DBLT3 DBLT4 DBLT5 DBLT6 DBLT7 IDISPX DISPX PPBAJ1 POPBAJ POPAJ
2) C00512 00154 PCOMPD PCOMPI PCOMPM PCOMPS P2CMPD P2CMPI P2CMPM PCMPID
2) C00514 00155 DDISP DDISP2 DMARR
2) C00516 00156 DOARR DOAR2 OFFARR ONARR
2) C00517 00157 DDISPS DDSPS2 DDSPS3 DDSPSX DDSPS4
2) C00521 00158 DSPSAT DSPSAX SHIFT DMSPS2 DMSPS3 DMSPS4 DMSPSX DMPSAT DMPSAX DMBLTS DMBLT3 DMBLA
2) C00541 00159 DBLTS DBLTS2 DBLTSN DBLTS3 DBLTS1 DBLTSA DBLTA DBLTA2 DBLTS0 DBLTSB
2) C00544 00160 TDISP TDISP0 TDISP1 TDISP2 TDISP3 TDISPE
2) C00546 00161 TDISP4 TDISP5 TYPE TYPEL TDISPM
2) C00548 00162 WRPAGE WRPAG1 WRPAG2 WRBOOK
2) C00552 00163 WRPX0 WRPX WRPX1 WRPX1A WRPX1B WRPX2 WRPXBP
2) C00554 00164 WRPX3 WRPX4
2) C00557 00165 WRPOK WRTIT WRT0
2) C00559 00166 WRP1 WRLINE WRLUP WRLP2 WRRDO WRRDO2 WRRDO3
2) C00561 00167 WRDSP WRTAB WRCHK WRDONE WRDON2
2) C00563 00168 WRPM BTAB2
2) C00565 00169 FLSPAG FLSPGL FLSPG2 CLRWRT CLRWR2 DSHED
2) C00566 00170 TV RSYS RUN RUN1
2) C00569 00171 RUNILL, RUNNON, RUNFNF, RUNDEV, RUNFIL
2) C00570 00172 SEARCH ROUTINES
2) C00572 00173 SREAD SREAD0 SREAD1 SREAD2 SREAD3 SREAD4 SRSTOR SRSTR2 QREAD QREADX QREADY QRACT QRACT2 QABORT
2) C00587 00174 SRACT SREAD5 SRALT SRALT2 SRALUZ SREDT ASTER BSLAS BSLXCT BSLXC2 SREAD5 SREAD6
2) C00597 00175 FINDIT FOUND FNDMOV FNDERR SUBSTP SUBERR FND2 FND2A SETJMP SUBSP3 SUBSP2 FNDER2 FNDER3 FNDER5
2) C00602 00176 FIND
2) C00605 00177 DIRSRC DIRSR2 DFERR SRCDF SDFCR
2) C00608 00178 EXACT SSET SSET2
1) E[CSP,SYS] and 2) E.85[CSP,SYS] 1-25-77 10:25 pages 1,1
2) C00609 00179 SCOMP SFLUSH NOSRCH SFLSH1 SFLSL
2) C00611 00180 SBARF, SBARF1, SARRGH, SFSGT, SFSGET, SFSPUT, SFSPTL
2) C00613 00181 SPARSE
2) C00614 00182 SPARS1, SPARS2, SPDSP, SSCAN, SSCANA, SSCANX
2) C00616 00183 SSCAN1, SSCN1A, SSCN1B, SSCQT, SSCBIN, SSCINF, SSCNOT, SSCUOP, SSCVB
2) C00618 00184 SSCLP, SSCDSP
2) C00619 00185 SGRAPH, SGRPH1, SGRPH2, SGRPHX, SGDO1, SGDO1X, SGDOX2, SGDSP, SGDO1B
2) C00621 00186 SGNOT
2) C00622 00187 SBACK, SBACK1, SBACK2, SBACK3, SBACK4
2) C00624 00188 SBBRCH, SBBR2
2) C00625 00189 SBCALC, SBCAL0, SBCAL1, SBCAL2, SBCAL3
2) C00626 00190 SBCAL4, SBCNON, SBCX, SBCOPL, SBCOP2, SBCEND, SBCEN2, SBCFIX, SBCFXL, SBCFXE, POPJ2
2) C00628 00191 SBCOK, SBCEN1, SBCLUZ, SBCLZ1, SBCNXT, SBCBP, SBCBPL
2) C00630 00192 SBCCB, SBCCB1, SBCCB2, SBCCB8, SBCCB3, SBCCB4, SBCCB5
2) C00632 00193 SBCCB6, SBCCB7, BITCNT, BITCN1
2) C00633 00194 NEWBIT, NEWBT0, NEWBT1, NEWBT2, NEWBT3, NEWBT4, NEWBT5
2) C00635 00195 NEWBTC, NEWBC1, NEWBC2, NEWBC3, NEWBNC, NEWBN1, NEWBN2, NEWBN3, NEWBCZ, NEWBNZ
2) C00637 00196 SCCOM, SCCNOT
2) C00638 00197 SCCBIT
2) C00639 00198 MAKBIT, MAKBT0, MAKBT1, MAKBTN, MAKBN2, MAKBTB, MAKBB3
2) C00641 00199 MAKBNB, MAKBBT, MAKBB2, MBDSP, MBIND, MBIND2
2) C00643 00200 SCGEN
2) C00644 00201 SCGEN1, SCGEN2, SCGEN3, SCGEN4, SCGEN5, SCGEN6
2) C00646 00202 SCGTST, SCGT2, SCGT3, SCGDSP, SCGCN, SCGCN2, SCGBTN, SCGBT
2) C00648 00203 SCGE, SCGE2, SCGEL, SCGBAK, SCGBK1, SCGBK2, SCGBK3, SCGFA, SCGNC, SCGNFA
2) C00650 00204 SCGHB, SCGHB0, SCGHB5, SCGHB1, SCGHB2, SCGHB3, SCGHB4, SCGHBX, SCGHX2
2) C00652 00205 SCGCB, SCGCB0, SCGCB1, SCGCB2, SCGCB3, SCGCB4, SCGCB5, SCGHCB
2) C00654 00206 SBTMAK, SBTMK1, SBTMK2, SBTMK3, SBTMK4, SCGENB, SCGHB, SSVINS, SCXCT, SBKNW, SBKNWA, SBKDSP
2) C00656 00207 SRCPAG SRCPG1 SPFIN SPFL SPFL2 SPFX NOSRC2 SRCLBL SRCPG3
2) C00659 00208 GBYTP, GBYTPL, GBTPX, GBPDSP, GBPTAB
2) C00660 00209 SRCPGF, SPFTAB, SPFCR, SPFLUZ
2) C00661 00210 SRCPGB, SPFTAB, SBKNL, SBKNUL
2) C00663 00211 SRCSET, SRCST1, SRCSTL, SRCST2
2) C00664 00212 SCALL, SRCHX, SRCHLX
2) C00666 00213 SCNBAK, SCNBKL
2) C00668 00214 SCONTF SRCFNP SRCFNB SFNB2 SFRETR SRCDPY SRCDP2 SRCFPP SRCDP3 NOSRCP SRCHED, SRCDD
2) C00673 00215 SRCFF, SFFNUL, SGTACS, SRTACS
2) C00674 00216 SRCFB, SFBNUL, SBKNB, SBKNB2, SIOERR, SBKNP
2) C00675 00217 JCTAB
2) C00684 00218 J1DSP J2DSP J3DSP J4DSP J5DSP J6DSP J7DSP
2) C00697 00219 PARGET NEXTLI ADJARG JNEW JMORE JUFIX JBLANK JMSTRT JSTART
2) C00707 00220 JINIT JPREAD JMREAD SWTABL SWNOTE SWNOTT JUDATA JUTYPO
2) C00715 00221 TJ1DSP TJROOM TABLE TJFILL TJUST TJDATA
2) C00726 00222 SJFILL SJUSTA JFILL JUST JU7
2) C00737 00223 IND INDENT INREAD CENTER ALIGN LFARR RTARR TIN SIN
2) C00749 00224 JGINIT JGB JGIND JGMAR JGET
2) C00755 00225 TJREAD TJADJ TJGET TJG1 TJTYPO
2) C00766 00226 BREAK JOIN JOIN7
1) E[CSP,SYS] and 2) E.85[CSP,SYS] 1-25-77 10:25 pages 1,1
2) C00779 00227 TJU1
2) C00786 00228 MACRO FREE STORAGE - MFSCLR,GETMFS,FREMFS
2) C00788 00229 MACTYI
2) C00790 00230 ZDATA ZSIX ZBLT ZEDFIL ZLIST EXIST EXISTF ZSAVE ZFLDIR ZUNPAK
2) C00805 00231 LAMBDA EPSIL NWFILE HOME QUERY HOMEG LAMBDG EPSIL5 LAMEPS EPSIL2 EPSIL3 EPSIL4 EPSIL1
2) C00818 00232 ********* BEG OF ESSAY DEFS *********
2) C00837 00233 SUBSTR SUBST1 SUBOVE SUBST5 QFAST1 QFAST5 SUBSAY QFAST6 QFAST9
2) C00844 00234 SPOOLC XSPOOL MAIOUT XWRDSP MAISPL XCLOSO XWRPM XWRDON XWRBF3 XWRTAB XWRLUP XWRLIN SPLINI
2) C00855 00235 BEGIN SPSUB
2) C00862 00236 FBISPC FBITAB ADRS FBINAM SAVCH2 SAVCHR TELBUF,CHKUP,CHECKU,CHTEXT,ASCASC,CHOUT3,CHOUT6
2) C00872 00237 FILEID TELLME FBI
2) C00891 00238 MAP
2) C00899 00239 PAREN
2) C00902 00240 PARSAV PARL PARR PAR PARFND PARB PAREXT PARRCD PARNUL
2) C00924 00241 BACKGO BEEPCK BEEPST BEEPS1 BEEPME BEEPUU
2) C00928 00242 MSG CHKMSG MSG0B MSG0A MSG0 MSG1 MSG2 MSG5 MSG6 MSG7 MSGLUZ MSGBK MSGBK0 CHKMS0
2) C00936 00243 MACDEF MACCAL MACSTP MACESC MACLIN MACTYP MACINT MACLTT MACKLD
2) C00951 00244 BURP BURPEX UPDATE PROTEC AUTOBU
2) C00957 00245 MAIL SEND REMIND
2) C00959 00246 ALIAS SETHED ALIAS2 ALIAS3 ALIAS4 ALIAS5 SETHD2
2) C00962 00247 SAVE SPLSTR SAVFIL
2) C00966 00248 LBLSRC LBLSR2 LBLERR LBLOOP
2) C00969 00249 HEIGHT HEIGH2 HEIGH3 HEIGH4
2) C00971 00250 PDL PATCH PAT ZVARS LEGTAB BUF TCBUF RBUF FNDTBF FNDBUF DIR SYSCMD TYIPNT
2) C00973 ENDMK
2) C⊗;
***************
**** File 1) E[CSP,SYS], Page 10 line 45
1) ; SKIPE MARKS ;Are there any line marks
1) ; PUSHJ P,XMPAGE ;Yes, so get last mark on page data
1) TRNE F,REDNLY!DIROK
**** File 2) E.85[CSP,SYS], Page 10 line 45
2) SKIPE MARKS ;Are there any line marks
2) PUSHJ P,XMPAGE ;Yes, so get last mark on page data
2) TRNE F,REDNLY!DIROK
***************
**** File 1) E[CSP,SYS], Page 23 line 46
1) ; SKIPE MARKS ;Are there any line marks
1) ; PUSHJ P,XMPAGE ;Yes, so get last mark on page data
1) PUSHJ P,CORCHK
**** File 2) E.85[CSP,SYS], Page 23 line 46
2) SKIPE MARKS ;Are there any line marks
2) PUSHJ P,XMPAGE ;Yes, so get last mark on page data
2) PUSHJ P,CORCHK
1) E[CSP,SYS] and 2) E.85[CSP,SYS] 1-25-77 10:25 pages 23,23
***************
**** File 1) E[CSP,SYS], Page 25 line 1
1) ;MARKS XMARK XXADD XXSUB XPADD XPSUB XLALL XXARRL XXPAGE XXLINE
1) NMARKS←←27 ;Max. no. of marks.
1) IMPURE
1) XXARRL: 0 ;Holds line number at insertion or deletion point
1) XXPAGE: 0 ;Holds page number at insertion or deletion point
1) XXLINE: 0 ;Holds line number at insertion or deletion point
1) MARKS: BLOCK NMARKS
**** File 2) E.85[CSP,SYS], Page 25 line 1
2) ;MARKS XMARK XMPAGE XXADD XXSUB XPADD XPSUB XLALL XXARRL XXPAGE XXLINE
2) NMARKS←←27 ;Max. no. of marks.
2) IMPURE
2) XXARRL: 0 ;Holds line number at a page insertion or deletion
2) XXPAGE: 0 ;Holds index value to MARKS at first entry for current page
2) XXLINE: 0 ;Holds MARKS line number from first entry for current page
2) MARKS: BLOCK NMARKS
***************
**** File 1) E[CSP,SYS], Page 25 line 19
1) PUSHJ P,GPAGL
1) MOVS D,T ;Get into MARKS format
1) CAMN D,MARKS ;Are we at the first mark?
**** File 2) E.85[CSP,SYS], Page 25 line 19
2) MOVE D,ARRL
2) HRL D,CURPAG ;Get current location into mark-table format
2) CAMN D,MARKS ;Are we at the first mark?
***************
**** File 1) E[CSP,SYS], Page 25 line 25
1) Only one MARK and you are there! /]
1) JRST PPJ1CR
**** File 2) E.85[CSP,SYS], Page 25 line 25
2) There is only one MARK and you are there! /]
2) JRST PPJ1CR
***************
**** File 1) E[CSP,SYS], Page 25 line 49
1) XMOVE: HLRZ A,MARKS(E)
1) CAMG A,CURPAG
1) CAMGE A,FIRPAG
1) JRST XMOVE2 ;Page is not in core
1) SUB A,FIRPAG
1) E[CSP,SYS] and 2) E.85[CSP,SYS] 1-25-77 10:25 pages 25,25
1) JUMPE A,XMOVE3 ;On first page in core
1) MOVEI G,XPLST
1) HRRZ G,(G)
1) JUMPE G,NEWPG4 ;Use same error message (should never happen)
1) SOJG A,.-2
1) HLRZ A,2(G) ;Line number of last page mark on page
1) HRRZ G,MARKS(E)
1) ADD A,G
1) JRST SETARR
1) XMOVE2: PUSH P,E
1) PUSHJ P,NEWPG0
1) POP P,E
1) XMOVE3: HRRZ A,MARKS(E)
1) JRST SETARR
1) XBACK: CAMG D,MARKS(E)
**** File 2) E.85[CSP,SYS], Page 25 line 49
2) XMOVE: PUSH P,E ;Found it.
2) HLRZ A,MARKS(E)
2) CAMN A,CURPAG ;Save time if on right page already.
2) JRST XMOVE3
2) PUSHJ P,NEWPG0 ;Go to right page.
2) JFCL ;NEWPG0 skips on error, although that shouldn't happen here
2) POP P,A
2) HRRZ A,MARKS(A)
2) XMOVE2: PUSHJ P,SETARR ;Set arrow
2) JRST JMPJMP ;and readjust window
2) XMOVE3: POP P,A
2) HRRZ A,MARKS(A)
2) MOVE E,TOPWIN ;Test to see if new position is at a reasonable place
2) CAIL A,4(E) ;Between 4 below top
2) CAILE A,36(E) ;and 4 above bottom allowed
2) JRST XMOVE2 ;It is not within limits so readjust window
2) JRST SETARR ;Set arrow only
2) XBACK: CAMG D,MARKS(E)
***************
**** File 1) E[CSP,SYS], Page 25 line 94
1) PUSHJ P, GPAGL
1) MOVS D,T
1) MOVEI E,0
**** File 2) E.85[CSP,SYS], Page 25 line 92
2) MOVE D,ARRL
2) HRL D,CURPAG ;Into form stored
2) MOVEI E,0
***************
1) E[CSP,SYS] and 2) E.85[CSP,SYS] 1-25-77 10:25 pages 25,25
**** File 1) E[CSP,SYS], Page 25 line 101
1) EXCH D,MARKS(E) ;Make room
1) SKIPLE D
1) AOJA E,.-2
1) POPJ P,
1) XDELET: MOVEI E,0
1) PUSHJ P,GPAGL
1) MOVS D,T
1) XDEL2: CAMGE D,MARKS(E) ;Find entry
**** File 2) E.85[CSP,SYS], Page 25 line 99
2) MOVE A,ARRL
2) CAMG A,XXLINE ;Is new mark later than XXLINE
2) JRST .+3 ;Yes
2) MOVEM A,XXLINE
2) MOVEM E,XXPAGE ;Reset for newly inserted mark
2) EXCH D,MARKS(E) ;Make room
2) JUMPLE D,.+2
2) AOJA E,.-2
2) POPJ P,
2) XDELET: MOVE E,XXPAGE ;Get starting place
2) MOVE D,ARRL
2) HRL D,CURPAG
2) XDEL2: CAMGE D,MARKS(E) ;Find entry
***************
**** File 1) E[CSP,SYS], Page 25 line 113
1) HRRZS T ;Get page number
1) HLRZ TT,MARKS-1(E) ;and page numbers before and after
1) HLRZ D,MARKS+1(E)
1) CAME T,TT
1) CAMN T,D
1) SKIPA
1) OUTSTR [ASCIZ/
1) Removing last MARK on this page. /]
1) XDEL4: MOVE D,MARKS+1(E) ;Close ranks
1) MOVEM D,MARKS(E)
1) SKIPE D
1) AOJA E,XDEL4
1) POPJ P,
1) ;New code to cancel marks on current page
1) XMARK0: PUSH P,E
1) MOVEI E,0
1) PUSHJ P,GPAGL
1) OUTSTR [ASCIZ/ MARKS on this page only have been cleared. /]
1) XMARKA: HLRZ TT,MARKS(E)
1) CAMGE TT,XXPAGE
1) JRST XMARKC ;Before page of interest
1) E[CSP,SYS] and 2) E.85[CSP,SYS] 1-25-77 10:25 pages 25,25
1) CAME TT,XXPAGE
1) AOJA E,XMARKA
1) PUSH P,E
1) XMARKB: MOVE TT,MARKS+1(E) ;Close ranks after each deletion
1) MOVEM TT,MARKS(E)
1) SKIPLE TT
1) AOJA E,XMARKB
1) POP P,E
1) JRST XMARKA
1) XMARKC: POP P,E
1) POPJ P,
1) ;To handle a single line addition
**** File 2) E.85[CSP,SYS], Page 25 line 116
2) MOVE D,ARRL
2) CAMGE D,XXLINE ;Is it the the latest on this page?
2) JRST XDEL4 ;No
2) HLRZ T,MARKS+1(E) ;Is it also the last one on this page?
2) CAME T,CURPAG
2) JRST XDEL3 ;This was the only one
2) HRRZ T,MARKS+1(E)
2) MOVEM T,XXLINE ;Only XXLINE needs fixing, XXPAGE will be unchanged
2) JRST XDEL4
2) XDEL3: SETZM XXLINE
2) SETZM XXPAGE
2) PUSHJ P,ABCRLF
2) OUTSTR [ASCIZ /Last MARK on this page has been removed.
2) /]
2) XDEL4: MOVE D,MARKS+1(E) ;Close ranks
2) MOVEM D,MARKS(E)
2) JUMPE D,.+2
2) AOJA E,.-3
2) POPJ P,
2) ;This routine reloads XXPAGE and XXLINE for the new page
2) XMPAGE: PUSH P,T
2) PUSH P,E
2) MOVEI E,0
2) SETZM XXPAGE
2) SETZM XXLINE
2) HLRZ T,MARKS(E)
2) CAMLE T,CURPAG
2) AOJA E,.-2
2) CAME T,CURPAG
2) JRST XMPAG2 ;No marks on this page
2) MOVEM E,XXPAGE ;Store index for first mark on this page
2) HRRZ T,MARKS(E)
2) MOVEM T,XXLINE ;Store the line number
2) XMPAG2: POP P,E
2) JRST POPTJ
1) E[CSP,SYS] and 2) E.85[CSP,SYS] 1-25-77 10:25 pages 25,25
2) ;New code to cancel marks on current page
2) XMARK0: MOVE A,XXPAGE
2) SETZM XXLINE
2) SETZM XXPAGE
2) OUTSTR [ASCIZ/ MARKS on this page only have been cleared. /]
2) XMARKA: HLRZ T,MARKS(A)
2) CAME T,CURPAG
2) JRST POPJ1
2) PUSH P,A
2) XMARKB: MOVE T,MARKS+1(A)
2) MOVEM T,MARKS(A)
2) SKIPLE T
2) AOJA A,XMARKB
2) POP P,A
2) JRST XMARKA
2) ;To handle a single line addition
***************
**** File 1) E[CSP,SYS], Page 25 line 156
1) ;To make a single line removal
1) XXSUB: MOVNI T,1
1) PUSH P,T
1) PUSHJ P,XLALL
1) POP P,T
1) POPJ P,
1) ;New code to handle deletions and additions
1) XLALL: PUSH P,E
1) PUSHJ P,GPAGL
1) MOVEI E,0
1) MOVE TT,-2(P)
1) XLALL1: HLRZ D,MARKS(E)
1) CAMGE D,XXPAGE
1) JRST XLALL2 ;Before page of interest
1) CAME D,XXPAGE
1) AOJA E,XLALL1
1) HRRZ D,MARKS(E)
1) CAMGE D,XXLINE
1) JRST XLALL2 ;Before location of interest
1) ADD D,TT
1) CAMGE D,XXLINE
1) MOVE D,XXLINE
1) HRRM D,MARKS(E)
1) AOJA E,XLALL1
1) XLALL2: JUMPGE TT,XLALL4 ;No duplications possible on an insertion
1) MOVEI E,0
1) MOVEI TT,1(E)
**** File 2) E.85[CSP,SYS], Page 25 line 177
1) E[CSP,SYS] and 2) E.85[CSP,SYS] 1-25-77 10:25 pages 25,25
2) ;New code to handle deletions and additions
2) XLALL: MOVE T,XXLINE
2) CAMGE T,ARRL
2) POPJ P, ;All marks are before addition or deletion
2) MOVE TT,-1(P) ;Lines added (may be negative)
2) PUSH P,E
2) MOVE E,XXPAGE
2) XLALL1: HRRZ T,MARKS(E)
2) CAMGE T,ARRL
2) JRST XLALL2
2) ADD T,TT
2) CAMGE T,ARRL
2) MOVE T,ARRL ;Marks on deleted lines moved to ARRL
2) HRRM T,MARKS(E)
2) HLRZ T,MARKS+1(E)
2) CAMN T,CURPAG ;Is next mark on this page?
2) AOJA E,XLALL1 ;Yes
2) XLALL2: MOVE E,XXPAGE
2) HRRZ T,MARKS(E)
2) MOVEM T,XXLINE
2) JUMPGE TT,XLALL4 ;Through if additions
2) MOVEI TT,1(E)
***************
**** File 1) E[CSP,SYS], Page 25 line 197
1) XPADD: MOVEI E,0
1) PUSHJ P,GPAGL
1) XPADD1: HLRZ T,MARKS(E)
1) CAMGE T,XXPAGE
1) XPADD4: POPJ P,
1) XPADD2: CAME T,XXPAGE ;Is it on the split page?
1) JRST XPADD3 ;No, so only page value needs to be changed
1) HRRZ T,MARKS(E) ;Now attend to line number
1) SUB T,XXLINE ;Where is it with respect to insertion
1) ADDI T,1
1) JUMPLE T,XPADD4 ;It was before so we are through
**** File 2) E.85[CSP,SYS], Page 25 line 210
2) XPADD: PUSH P,E
2) MOVEI E,0
2) JRST XPADD2
2) XPADD1: HLRZ T,MARKS(E)
2) ADDI T,1 ;Compensate for fact that CURPAG was upped 1 by insertion
2) CAMGE T,CURPAG
2) JRST XPADD4
2) XPADD2: CAME T,CURPAG ;Is it on the split page?
2) JRST XPADD3 ;No, so only page value needs to be changed
2) HRRZ T,MARKS(E) ;Now attend to line number
1) E[CSP,SYS] and 2) E.85[CSP,SYS] 1-25-77 10:25 pages 25,25
2) SUB T,XXARRL ;Where is it with respect to insertion
2) ADDI T,1 ;This should go before the pushj.
2) JUMPLE T,XPADD4 ;It was before so we are through
***************
**** File 1) E[CSP,SYS], Page 25 line 213
1) ;This routine handles page mark deletions
1) XPSUB: HRRZ TT,XXLINE
1) XPSUB0: MOVEI E,0
1) XPSUB1: HLRZ T,MARKS(E)
1) SUBI T,1 ;Prepare to decrease page number
1) CAMGE T,XXPAGE
1) POPJ P, ;The rest are OK.
1) CAMG T,XXPAGE ;Is it on the adjoined portion?
1) ADDM TT,MARKS(E) ;Yes, so add to line number
1) HRLM T,MARKS(E) ;Reducing page number by 1
1) AOJA E,XPSUB1 ;Safe because table terminates with -1
**** File 2) E.85[CSP,SYS], Page 25 line 229
2) XPADD4: POP P,E
2) POPJ P,
2) ;This routine handles page mark deletions
2) XPSUB: PUSH P,E
2) MOVEI E,0
2) JRST XPSUB2
2) XPSUB1: HLRZ T,MARKS(E)
2) SUBI T,1 ;Compensate for fact that CURPAG was decreased by deletion
2) CAMGE T,CURPAG
2) JRST XPADD4 ;The rest are OK.
2) XPSUB2: CAME T,CURPAG ;Is it on the ajoined portion?
2) JRST XPSUB3 ;No, so only page value needs to be changed
2) MOVE T,XXARRL ;Line number on ajoined portion needs to be increased
2) ADDM T,MARKS(E) ;Fix line number
2) XPSUB3: MOVN T,[1,,0]
2) ADDM T,MARKS(E)
2) AOJA E,XPSUB1 ;Safe because table terminates with -1
***************
**** File 1) E[CSP,SYS], Page 27 line 30
1) SKIPE MARKS
1) PUSHJ P,XXSUB
1) HLRZ T,TXTCNT(B) ;Get char count as stored
**** File 2) E.85[CSP,SYS], Page 27 line 30
2) HLRZ T,TXTCNT(B) ;Get char count as stored
***************
1) E[CSP,SYS] and 2) E.85[CSP,SYS] 1-25-77 10:25 pages 27,27
**** File 1) E[CSP,SYS], Page 27 line 54
1) ; PUSH P,C ;Arg for XLALL
1) ; SKIPLE MARKS ;Are there marks?
1) ; PUSHJ P,XLALL ;Fix up marks
1) ; POP P,C
1) POP P,T
**** File 2) E.85[CSP,SYS], Page 27 line 52
2) PUSH P,C ;Arg for XLALL
2) SKIPLE XXLINE ;Are there marks on this page?
2) PUSHJ P,XLALL ;Fix up marks
2) POP P,C
2) POP P,T
***************
**** File 1) E[CSP,SYS], Page 28 line 3
1) DELPM: SKIPN MARKS ;Are there any line marks?
1) JRST DELPMA
1) PUSHJ P,GPAGL
1) PUSHJ P,XPSUB ;Note, this leaves a final correction to DELPR2
1)
1) DELPMA: TRNE F,REDNLY+EDDIR
1) JRST [TLO F,PMLIN↔JRST DELL2]
**** File 2) E.85[CSP,SYS], Page 28 line 3
2) DELPM: TRNE F,REDNLY+EDDIR
2) JRST [TLO F,PMLIN↔JRST DELL2]
***************
**** File 1) E[CSP,SYS], Page 31 line 10
1) SKIPN MARKS ;Are there line marks?
1) JRST DELETC
1) MOVE T,CURPAG
1) HRRZM T,XXPAGE ;Number of last page in core
1) SUB T,FIRPAG
1) JUMPE T,DELETB
1) MOVEI G,XPLST
1) HRRZ G,(G)
1) JUMPE G,NEWPG4
1) SOJG T,.-2
1) HLRZ TT,2(G) ;Line number for last page mark in core
1) MOVNS TT
1) ADD TT,LINES
1) SKIPA
1) DELETB: MOVE TT,LINES
1) HRRZM TT,XXLINES
1) PUSHJ P,XPSUB
1) DELETC: PUSH P,LINES
1) E[CSP,SYS] and 2) E.85[CSP,SYS] 1-25-77 10:25 pages 31,31
1) JSP B,ADDPAG
**** File 2) E.85[CSP,SYS], Page 31 line 9
2) PUSH P,LINES
2) JSP B,ADDPAG
***************
**** File 1) E[CSP,SYS], Page 31 line 60
1) TLO F,DSPTRL ;Force recalculation of trailer values
1) PUSHJ P,RDSPA4 ;Update page numbers on header line
**** File 2) E.85[CSP,SYS], Page 31 line 41
2) ; PUSH P,T
2) HLRZ T,MARKS
2) SUBI T,1
2) CAML T,CURPAG
2) PUSHJ P,XPSUB ;At least one mark needs attention
2) ; PUSHJ P,RDSPA1 ;Now fix page numbers in the trailer
2) ; PUSHJ P,DSTRL ;and make sure that the trailer is redisplayed
2) TLO F,DSPTRL ;Force recalculation of trailer values
2) ; POP P,T
2) PUSHJ P,RDSPA4 ;Update page numbers on header line
***************
**** File 1) E[CSP,SYS], Page 34 line 5
1) INSER0: SKIPLE MARKS ;Are there any line marks?
1) PUSHJ P,XPADD ;Fix them up now
1) MOVEI B,LLDESC+LPMTXT+2 ;MARK command enters here
1) PUSHJ P,FSGET
**** File 2) E.85[CSP,SYS], Page 34 line 5
2) INSER0: MOVEI B,LLDESC+LPMTXT+2 ;MARK command enters here
2) PUSHJ P,FSGET
***************
**** File 1) E[CSP,SYS], Page 37 line 26
1) PUSHJ P,INSER0 ;Insert pagemark (also fixes line MARKS)
1) HRRZ A,LLDESC+LPMTXT+1(B)
**** File 2) E.85[CSP,SYS], Page 37 line 26
2) PUSHJ P,INSER0 ;Insert pagemark
2) ;This code is to be put in where one returns from a page mark insertion
2) PUSH P,T
2) HLRZ T,MARKS
2) ADDI T,1
2) CAML T,CURPAG
2) PUSHJ P,XPADD ;At least one mark needs attention
2) POP P,T
2) HRRZ A,LLDESC+LPMTXT+1(B)
1) E[CSP,SYS] and 2) E.85[CSP,SYS] 1-25-77 10:25 pages 37,37
***************
**** File 1) E[CSP,SYS], Page 39 line 25
1) SKIPG MARKS ;Are there marks
1) JRST .+4
**** File 2) E.85[CSP,SYS], Page 39 line 25
2) SKIPG XXLINE ;Are there marks on this page
2) JRST .+4
***************
**** File 1) E[CSP,SYS], Page 41 line 53
1) SKIPG MARKS ;Are there marks?
1) JRST .+4
**** File 2) E.85[CSP,SYS], Page 41 line 53
2) SKIPG XXLINE ;Are there marks on this page
2) JRST .+4
***************
**** File 1) E[CSP,SYS], Page 42 line 30
1) JRST GPAGL4
1) GPAGL1: HLRZ T,2(TT)
**** File 2) E.85[CSP,SYS], Page 42 line 30
2) POPJ P,
2) GPAGL1: HLRZ T,2(TT)
***************
**** File 1) E[CSP,SYS], Page 42 line 45
1) GPAGL4: HRRZM T,XXPAGE ;Needed by XMARK routines (added 1/18/77 by ALS)
1) HLRZM T,XXLINE
1) POPJ P,
**** File 2) E.85[CSP,SYS], Page 42 line 45
2) POPJ P,
***************
**** File 1) E[CSP,SYS], Page 56 line 11
1) SKIPG MARKS ;Are there marks?
1) JRST .+4
**** File 2) E.85[CSP,SYS], Page 56 line 11
2) SKIPG XXLINE ;Are there marks on this page
2) JRST .+4
***************